home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
TOUR.DIR
/
00011_Script_buildTourButtons
< prev
next >
Wrap
Text File
|
1995-11-15
|
1KB
|
25 lines
on buildTourButtons
global gTourButtons
if voidP(gTourButtons) then
set gTourButtons to [:]
addProp gTourButtons, 2, tB(2,"TLARG.PIC","TLARGR.PIC","TLARGP.PIC","large")
addProp gTourButtons, 3, tB(3,"TSMALL.PIC","TSMALLR.PIC","TSMALLP.PIC","small")
addProp gTourButtons, 4, tB(4,"TSHOWC.PIC","TSHOWCR.PIC","TSHOWCP.PIC","controller")
addProp gTourButtons, 5, tB(5,"TT.PIC","TTR.PIC","TTP.PIC","retraceLocal")
addProp gTourButtons,6, tB(6,"TCC.PIC","TCR.PIC","TCP.PIC","doContentsLocal")
addProp gTourButtons, 7, tB(7,"TL.PIC","TLR.PIC","TLP.PIC","prevTour")
addProp gTourButtons, 8, tB(8,"TR.PIC","TRR.PIC","TRP.PIC","nextTour")
addProp gTourButtons, 9, tB(9,"TVISIT.PIC","TVISITR.PIC","TVISITP.PIC","visit")
addProp gTourButtons, 10, tB(10,"TCONTT.PIC","TCONTTR.PIC","TCONTTP.PIC","continue")
addProp gTourButtons, 11, tB(11,"QDbox","QDbox","QDbox","playTour")
addProp gTourButtons, 12, qt(12)
end if
end buildTourButtons
on tB c,n,r,p,sc
return birth(script "bt",c, n,r,p,sc)
end tB
on qt c
return birth(script "qt",c)
end qt